Dim RandomClass As New Random()
Dim RandomAnswer As Integer
RandomAnswer = RandomClass.Next(1, 51)